home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk168 / asmmacros / am_02 / getstdout.i < prev    next >
Text File  |  1995-03-19  |  542b  |  22 lines
  1.      NOLIST
  2. GetStdOut   MACRO              ; 14 Sept 88
  3. *------------------------------; Start of GetStdOut macro.
  4.      CallLib Output,dos        ; Call Output.
  5.      NOLIST
  6.      IFEQ ReEntrant-1
  7.      LIST
  8.      DefDS StdOut,1
  9.      MOVE.L D0,StdOut(A5)      ; Save the file handle at StdOut.
  10.      NOLIST
  11.      ENDC
  12.      IFNE ReEntrant-1
  13.      LIST
  14.      DS_BSS StdOut,1,.L
  15.      MOVE.L D0,StdOut          ; Save the file handle at StdOut.
  16.      NOLIST
  17.      ENDC
  18.      LIST
  19. *------------------------------; End of GetStdOut macro.
  20.      ENDM
  21.      LIST
  22.